home *** CD-ROM | disk | FTP | other *** search
/ Virtual Sex Shoot / Virtual Sex Shoot.iso / mac / Virtual Sex Shoot / Virtual Sex Shoot.DXR / 00251_Open Pano.ls < prev    next >
Encoding:
Text File  |  1995-09-24  |  1.0 KB  |  34 lines
  1. global gVRSprite1, gVRSprite2, gPanoMovieID, gPanoMovieObj, gVR.PanoFilename, gVR.CurrentNodeID, gVR.CurrentHotSpotID
  2.  
  3. on mouseUp
  4.   CloseNavMovie()
  5.   if the machineType = 256 then
  6.     ClosePanoMovie()
  7.   end if
  8.   set the ink of sprite gVRSprite1 to 0
  9.   set the ink of sprite gVRSprite2 to 0
  10.   updateStage()
  11.   set the ink of sprite gVRSprite1 to 1
  12.   set the ink of sprite gVRSprite2 to 1
  13.   updateStage()
  14.   OpenPanoMovie(gVR.PanoFilename, gVRSprite1, 1)
  15.   if the machineType = 256 then
  16.     if objectp(gPanoMovieObj) then
  17.       go("Pano")
  18.       set gVR.CurrentNodeID to string(gPanoMovieObj(mGetNodeID))
  19.       set gVR.CurrentHotSpotID to "0"
  20.       exit
  21.     end if
  22.   else
  23.     if gPanoMovieID <> EMPTY then
  24.       go("Pano")
  25.       set gVR.CurrentNodeID to string(PanoMovie("Direct", gPanoMovieID, "Get", "nodeID"))
  26.       set gVR.CurrentHotSpotID to "0"
  27.       exit
  28.     end if
  29.   end if
  30.   go("Start")
  31.   updateStage()
  32.   alert("Can't open file:" & RETURN & RETURN & QUOTE & gVR.PanoFilename & QUOTE & RETURN & RETURN & "as a panoramic movie.")
  33. end
  34.